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= PRINT CLI ERROR MESSAGE 1775501388 3 41316 AX/VMS Macro V04- 
984 23:16: 


-00 P 
4-SEP=1 CLIUTL. sR € Pu PUTCLIMSG.MAR; 1 
TITLE PUTCLIMSG = PRINT CLI ERROR MESSAGE 
IDENT *vOs-000" 


t peceenoonenenseneensessossonqnenonneesenennnmaneesennsnensesensonneneneennes 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT eGORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERV 


® 
® 
es 
® 
i 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOV — COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
oe 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT © 
CORPORATION. : 
® 
® 
® 
a 
ie 
® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: COMMAND LANGUAGE INTERPRETER UTILITIES 
ABSTRACT: 
wae cee oe PRINTS A MESSAGE FOR ALL SYNTAX ERRORS DETECTED BY A CLI 


ENVIRONMENT: USER MODE 
AUTHOR: C. A. MONIA , CREATION DATE: 16-JUNE-1978 


MODIFIED BY: 
01 » : VERSION 
001 TMHOO01 T. HALVORSEN 06-F EB-1980 


8 
FIX PUTMSG CALL TO USE DEFAULT FLAGS RATHER THAN EXPLICIT 7 
WHICH CAUSED FACILITY NAME NOT TO BE OUTPUT AS INTENDED. 


ry chAnse = PRINT CLI ERROR MESSAGE 
DECLARATIONS 


.SBTTL DECLARATIONS 
$ INCLUDE FILES: 


SCLIDEF 
SCLIMSGDEF 
SSTSDEF 


WO OONOULS WO 


80 : MACROS: 
. ' ° . 
4 65 ; 
909 64 ; EQUATED SYMBOLS: 
990 66 ; DEFINE ARGUMENT LIST OFFSETS 
090 68 * 
00 $9 . SAVE 
00 20 “PSECT $ABS$,ABS 
90000000 0000 te 20 
0000006 0000 73 COUNT: .BLKL 1 
00000008 0004 7% FACILITY:.BLKL 1 
0000000 08 $75 ERRDESCR:.BLKL 1 
0000001 OC 76 LINDESCR:.BLKL 1 
00000014 0010 77 CODE: .BLKL. 1 
0014 78 
0000 4= 79 .RESTORE 
0000 «80 gk 
0000 81 ; OWN STORAGE: 
0000 82 ; 
0000 «s«8 


15-SEP=-1 
4-SEP=1 


; DEFINE CLI 
; DEFINE CLI 
DEFINE RET 
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CLIUTL.SRCJPUTCLIMSG.MAR; 1 


RUN_PARAMETERS 
STATUS CODES 
URNED STATUS FORMAT 


ARGUMENT COUNT 


ADDRESS OF FACILITY NAME DESCRIPTOR 
QUALIFIER DESCRIPTOR FOR SYNTAX ERROR 
QUALIFIER DESCRIPTOR FOR COMMAND LINE 
CLI ERROR CODE 


L 12 | 
vousbo0” LIBSPUTCLTASE = PRINT STHTAK ERROR MESSA "GaSep-ionc SBitocdy eR{UMe Saese VOTO, mans1 2% dy, 


-SBTTL LIBSPUTCLIMSG = PRINT SYNTAX ERROR MESSAGE THEN EXIT 
FUNCTIONAL DESCRIPTION: 


5 
a 
9 
qi 


THIS ROUTINE IS CALLED WHENEVER A CLI UTILITY DETECTS A SYNTAX ERROR 
OTHERWISE DISCOVERED BY THE COMMAND LA vette i INTERPRETER. IT DISPLAYS THE 
ERROR MESSAGE FOLLOWED BY A LINE CONTAINING THE BRACKETED ERROR TEXT. 


CALLING SEQUENCE: 
CALL LIBSPUTCLIMSG (CFACNAM] ,ERRDESCR,LINDESCR, CODE) 
INPUT PARAMETERS: 


é | 
: | 
; 
‘ | 
+ | 
; 
Ri ; FACNAM = ADDRESS OF STRING DESCRIPTOR FOR THE OPTIONAL FACILITY NAME | 
101 : ERRDESCR = ADDRESS OF A CLI QUALIFIER DESCRIPTOR. OFFSET CLIS$W_ROSIZE 
1 : : 1S THE QUADWORD STRING DESCRIPTOR FOR THE PORTION OF THE 
' Z 3 COMMAND LINE CONTAINING THE SYNTAX ERROR. | 
198 ; LINDESCR = ADDRESS OF A CLI QUALIFIER DESCRIPTOR FOR THE COMMAND LINE. | 
109 ; CODE = CLI ERROR CODE 
109 : IMPLICIT INPUTS: | 
11] : NONE | 
0 118 : OUTPUT PARAMETERS: 
000 114; 
B08 11a _ | 
0900 19 : IMPLICIT OUTPUTS: 
000 118: | 
333 ee tee 
0000 1 : COMPLETION CODES: 
0900 § ; COMPLETION CODES ARE THOSE RETURNED BY SYSSPUTMSG 
0000 5 ; SIDE EFFECTS: 
00 4 ; NONE | 
a i ; ino | 
0000 090 1 -PSECT _PUTCLIMSG,NOWRT 
i 
0000 09 1 -ENTRY LIBSPUTCLINSG.0 3 
51 08 20 4 134 MOVL LI$SW_ROSIZE.R1 t GET OFFSET TO LINE DESCRIPTOR | 
50 08 BC41 : 0 135 MOVAB aaveeeagerig RO =: GET ADDRESS OF ERRONEOUS SEGMENT | 
7E AO 60 C 00A 1 3 ADDL (RO) (SP) t PUSH ADDRESS OF END OF SEGMENT 
1 OC BC41 ‘ oF 1 MOVA aL INSESCR CAP) R1],.R1 =: GET ADDRESS OF LINE SEGMENT | 
1 61 81 ¢ ore ; ADDL CRI) (R1),R1 : COMPUTE END OF SEGMENT 
— 51 GE 3 0018 1 SUBL (SP »,R1,-¢$P) : COMPUTE SEGMENT LENGTH 
51 50 8F 9A O01C 140 MOVZBL #80,R1 > GET MAX LENGTH OF OUTPUT LINE 
51 6E€ 01 0020 = 141 CMPL (SPS. R1 ; CENGTH EXCEED MAXIMUM? | 
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5 
SPUTMSG_S 


RET 


AP),=- ; OUTPUT THE MESSAGE 


=OFACILITY( 
=( 0) ° eee 


FACN F 
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PUTCLIMSG = PRINT CLI ERROR MESSAGE 15-§ p= 1980 33:4} 19 yauives Be yO%700 Page 


s | 
CLIUTL.SRCJPUTCLIMSG.MAR; 1 (1) > 


The york ine ssf Limit was 1950 pages. 
19839 | bytes (359 pages) of virtual memory were used to buffer the intermediate core. 
1 re were ef pages of symbol table space allocated to hold 380 non-local gné local symbols. 
source lines were read in Pass 1, producing 16 object records in Pass 2. 
A of virtual memory were used to define 11 macros. 


eS ae So oe Sener oeaeoona nase } 


Symbol table 46-SEP-19 
ROSIZ | 
ft is Bapient 
ap? 
pe sce 
ACILITY 
LIBSPUTCLIMSG 02 
LINDESCR Cc 
SYSSPUTMSG eeneeeee GX 02 
poocemeoneaaamace ¢ | 
! Psect synopsis ! | 
pmwor eraser conaand 
PSECT name Allocation PSECT No. Attributes | 
ABS. 000000 < of 0 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD on NOVEC A 
$aBss 000014 ¢ ; ) 1¢ #1.) NOPIC USR CON ABS LCL NOSH - EXE RD T NOVEC BYTE | 
_PUTCLIMSG 000053 ¢ on 2¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOURT NOVEC BYTE 
f¢oewmecenw arene serene srw anwe $ 
$ ; Performance indicators 3 | 
Phase Page faults CPU Time Elapsed Time | 
Initialization 18 on 0: 00.61 
pennens processing i $3 3: 0:14:01 
5 table sort 0 ‘ :00:00.91 
syabol 4 ts 44 “38 if QO: 9-7) | 
Symbol table output 3 a :00:00.3 
Psect synopsis output 1 . 0:00:00.0 
Cross-reference output 0 . 0:00: 9-6 
Assembler run totals 361 24 10:00:23.0 | 
| 


: “Macro library statistics ; 


| meet a Se Oe we oe em 


Macro Library name Macros defined 


“B35 Sebuase: 6: FSvs- 0839018. ALB:t -MLB;1 


Pere: I TB3STARLET. MLB;2 
ToTAce (alt yi cteee: es) 


460 GETS were required to define 8 macros. 
There were no errors, warnings or information messages. 
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PUT mt et 
VAX=11 Macro Run Statistics 
MACRO/LIS=LIS$:PUTCLIMSG/OBJ=0BJ$:PUTCLIMSG MSRC$:PUTCLIMSG/UPDATE=(ENH$:PUTCLIMSG) +EXECML$/LIB+LIB$:CLIUTL/LIB 
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